﻿Module Module1
  Sub Main()
    Dim I As Integer
    For I = 1 To 100 Step 2
      Console.WriteLine(I)
    Next
    Console.ReadLine()
  End Sub
End Module

